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Jfetrix Normalization 

Entire program 

6 decimal places 

1 < j < 701 and i is not limited when normalizing by 

rows . 

1 < j < 551 and i(j + l) < 10,2*1-0 when normalizing by 

columns. Here i is the number of rows and j is the 

number of columns of the matrix. 

.022ij(d + l) seconds. Add 20 seconds for read-in of 

the master tape. 

This routine will normalize a matrix by rows or by 
columns. That is, it will convert each row or column 
of the matrix into a unit vector. The elements of 
the normalized matrix will be printed by rows, up to 
12 decimal places as designated by the user. 

STOPS PROCEDURE 

1. Master tape 

2. Parameter tape 

3. Data tape 



Bl. sw. 
4 
Bl. sw. 



Described below 



3^016 
2001K 
0F000 

To begin a new problem at stop OF, move the white switch 
up and down. The computer will stop on 2UOI6. Raise the 
black switch to read a new parameter tape; move white 
switch up and down to retain old parameters. 

PREPARATION OF PARAMETER TAPES 

The parameter tape consists of one signed integer terminated 
by an N or J. The signed integer is the number of decimal 
places in the output. When the parameter tape is terminated 
by an N the normalization will be done by rows . When 
terminated by a J the normalization will be done by columns . 



- 2 - 

PREPARATION OF DATA TAPES: 

The elements of the matrix are punched "by rows as signed, 
fractions, with an N after each row-and a J after the 
final N. If, instead of an N, an F or L is punched at 
the end of a row, the computer will stop. By raising 
the black switch, reading of the matrix is resumed. 

ERROR STOPS: The number of elements per row must be equal for each 

row of the matrix. Otherwise the computer will stop, 
This condition is indicated by an FF001 stop while 
normalizing by columns, and by an FF002 stop while 
normalizing by rows. Moving the white switch up and 
down at these points will allow a new matrix to be 
read in. During the read-in of the master tape, if 
an FF003 should occur, do a clear start and input 
master tape again. 
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ORDER 
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Abs. 


Rel. 


Sym. 


00 3K 
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OOF 00322F 


Location of A vector. 


k 






OOF 00673F 
00 10K 


Location of sum boxes. 
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(Al) 
(A2) 

00 

(Dl) 

(D2) 

(D3) 

(0) 

(1) 

(70) 

(1-D 

(+D 

(-D 


l4s4 kosk 

50S3 75S3 
40S3 L521(N12) 
J0S3 501 (wr) 
26 (Y5) OO256QF 

50S3 501 (rd) 

OOF OOF 

OOF OOIF 

OOF 0070F 

OOIF OOIF 

OOF 00999999999999J 

80F OOF 

OOK 


Constants 
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1 
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(P) 


524F 50L 
26(N12) 407F 
L5^F 0020F 
463 (PR) 419F 
204L 509F 
F5^F 007F 


Read parameters 
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4o4f L5(70) 


Calculate number of elts/line 




7 




664f S5F 
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1032F 42 9F 
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50S 3 509L 


Read first row of matrix 
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26(N12) 4o6f 
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L52l(N12) LO(N) 
463(WR) 463 (RD) 


Initialize addresses in drum transfer 

routines 
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1020F 403F 






Ik 




L5(l) 405F 
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L37F 36 (ROWS) 
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Ab£ f 


Rel. 


Sym. 


OOK 
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(COL) 


L5(D1) 40l(WR) 
L5(D2) 402(WR) 
L5(Al) te5L 
hlF 4lF 
F5F kQF 
L05F 52 7L 
F55L ^25L 
22 5L 507L 
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26 (S) L5(A2) 


Scale elts . of one row 
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4011L L5(Al) 
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4012L 4lF 
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50F 75F 


Square one element 






12 




IAF 40F 
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F5F 40F 








Ik 




L05F 5218L 
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L511L iMl-l) 








16 




4011L L512L 
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LU(l-l) 4012L 
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2611L 5018L 
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26 (WR) 2620L 


Transfer one row of matrix to drum 
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50S 5 5020L 


Read in one row of matrix 
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26(N12) ko6F 








22 




L56F 5224L 
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L4(l) 5251L 
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202^L L52(WR) 
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F^5F 402(WR) 
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F55F k05F 
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L52l(N12) LO(N) 


TEST: Are number of elts/row equal? 
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1020F L05F 
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^OF L5F 
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51 




52 7L FFIF 
269 (P) L5(D5) 


FFOOl^ elts. unequal^ wh. sw. to read 

new matrix. 
Initialize addresses for drum transfer. 
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401 (RD) L5(D2) 
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402(RD) L5(Al) 
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Abs. 



Rel. 



35 
36 
37 
38 
39 
1*0 
in 
1*2 

1*3 

^5 
1*6 

hi 
1*8 

±9 
50 

51 
52 
53 
5^ 
55 
56 
57 
58 

59 
60 
61 
62 
63 

65 
66 

61 



Sym. 



1*2 35L 42 37L 
1*1F L5F 
50F 5036L 
26 (Rl) 1*0F 
Y^kF l*Ol*F 
L03F 361+2L 
F535L 1*235L 
1*2 37L 2635L 
l*l6F L13F 
l*0l*F 1*08F 
L5(Al) l*2l*9L 
1*251L L5(A2) 
l*2l*8L 1*250L 
i*252L 50l*7L 
26 (RD) L7F 
22l*9L LOF 
3669L L5F 
50(0) 66F 
S5F 1*0F 
F5i*F !*Ol*F 
3258L F5^8l 
l*2l*8L 1*250L 
1*252L F5l*9L 
l*2l*9L 1*251L 
2248L F56F 
i*o6f 5059L 

26 (PR) L56F 
L05F 3665L 
92131F 92515F 
L52(RD) Fl*3F 
1*02 (RD) 22l*2L 
9283l*F 92ll*7F 
92515F OFF 
21*(P) 269(P) 



Enter square root subroutine 



Transfer row from drum to WM 



Print a row of normalized matrix 



Line feed and carriage return 



Print J; 5 line feeds and carriage returns 

Delay; ; : end of- program. Wh.sw. to stop 2l*0l6 

tl.sw. to read new parameters or wh.sw. to 

retain 
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13 

1^ 

15 
16 

17 
18 

19 
20 
21 
22 

23 
2k 

25 

26 
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ORDER 



(ROWS ) 



L5(+l) 2252L 
L5^8L te70L 
2270L L5F 
3668L L5(-l) 
2252L 50F 

lOOK 
50F 50L 
26 (S) L13F 
IfOlF ^O^F 
*K)8F ^1102 3F 
L5(A2) ^0% 
50F 75F 

IA1023F ^0102 3F 
F51F ^OlF 
3210L L55L 
iA(l-l) ^5L 
265L h±¥ 
L51023F 5011L 
26 (Rl) ^0102 3F 
L5(A2) ^6l5L 
|^6l7L ^2l8L 
|L7F L01023F 
3637L 50(0) 
L5F 66102 3F 
S5F ^OF 
F5 i t-F kOkF 
3225L L515L 
iA(l-l) ^6l5L 
i^6lTL F518L 
4218L 2615L 
L5(+l) 2218L 
50F 502 5L 
26 (PR) 2627L 
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old parameters 



Scale one row of matrix 



Square one element 



Enter square root subroutine 



Print a row of normalized matrix 
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Rel. 



Abs. 
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J 35 
1.56 
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151 

|l 
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15 

16 

i 

! 7 

i8 



160 




1 
2 
3 

5 
6 

7 
8 



Sym< 



(S) 



(PR) 



ORDER ^____ 

50S3 5027L 
26(N12) 1+06F 
L36F 3231L 
IA(1) 3665 (COL) 
2031L 92131F 
92515F L52l(N12) 
LO(N) 1020F 
L03F ^OF 

L3F 32L 

FF2F 269 (P) 

L515L ^638L 

L5F 3^2^L 

L5(-l) 2218L 

OOK 

K5F ^28L 
L13F kOk? 
L5(A2) ^23L 
teUL L5F 
105F UOF 
F5^F kOk-F 
328L F53L 
k2 3L k2kh 
22 3L 22F 

OOK 

K5F 4211L 
L5(A2) te2L 
klkY L5F 
50F 503L 
26(Pl6) F58F 
^08F 36HL 
F52L ^22L 
F5 J 4-F kOkY 
L09F 329L 
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Read in one row of matrix 



Line feed and carriage return 

Delay • 

TEST: Are number of elts/row equal? 

FF002; elts. unequal; wh.sw. to read new matrix 



Scaling routine 



Print routine 
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Abs. 



172 



176 



180 
215 
25^ 
265 

319 



Rel, 



9 

10 

11 



Sym, 



(WR) 



CRD) 



222L 92131F 
92515F 262L 
92770F 22F 

OOK 

K5F ^23L 
J0S3 501L 
26 (Y5) OOF 
OOF 22F 

OOK 

K5F k23L 
50S3 501L 
26 (Y5) oof 
00? 22F 

00K(Y5) 
00K(ni2) 
OOK(ri) 
00K( P i6) 

OOK 

L3F 3^(P) 
FF3F 26 (P) 
N51027F 09^28F 

26L 261N 



Print N 



Write one row on drum 



Read one row from drum 



Drum transfer routine (Y5) 
Input routine (N12) 
Square root routine (Rl) 
Print routine (Pl6) 



FF003: Read failure on master tape 



